use strict;
use warnings;

sub odch::data_to_all {
	my $message = shift;
	print $message, "\n";
}

sub simulate_message {
	my ($nick, $message) = @_;
	print "<$nick> $message|\n";
	data_arrival($nick, "<$nick> $message|");
}

use Dogtanian;
do 'core.pl';

main();
#simulate_message("monk", "-list");
#simulate_message("monk", "-load hello_world");
#simulate_message("monk", "-hello");
#simulate_message("monk", "-load nextprev");
#simulate_message("monk", "-next Burn Notice");
#simulate_message("monk", "-load svn");
#simulate_message("monk", "-svnup");

#simulate_message("monk", "-load feeds");
#simulate_message("monk", "-feeds");
#simulate_message("monk", "-load users");
simulate_message("monk", "-load talk");
simulate_message("monk", "-load talk2");
simulate_message("monk", "-load stats");
simulate_message("monk", "-load trigger");
simulate_message("monk", '-trigger /\bhello\b/ say hello');
simulate_message("monk", "hello");
simulate_message("monk", " hello");
simulate_message("monk", "thello");
simulate_message("monk", "well hello there");
